#------------------------------------------------------------------------------
# Date : Feb 26, 2020
# By Byungkyu Lee (bl11@indiana.edu)
# you should run stata do file first before generating these figures
# in some cases, I simply copy and paste the stata output directly to this code or save it as csv files
# check out `homophily_all.csv` and `size_all_0708.csv` in the `results/tables` folders
#==============================================================================

library(here)
library(data.table)

# first the following code should be re run first.
source(here('code','PI_process_text_zip.R'))

# Figure 1 : network size trends capped at 3
source(here('code','PI_figure_trends_networksize.R'))

# Figure 2 : what to talk 
source(here('code','PI_figure_imp_text.R'))

# Figure 3 : the frequency of topic choices 
source(here('code','PI_figure_topic_multiple_choice.R'))

# Figure 4 : homophily trends 
source(here('code','PI_figure_homophily_trends.R'))

# Figure 5 : Homophily by relationship type 
source(here('code','PI_figure_homophily_by_relationship.R'))

# Figure 6 : predicted plots 
source(here('code','PI_figure_prediction.R'))





